home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00309_Field_309.txt < prev    next >
Text File  |  1994-06-14  |  4KB  |  121 lines
  1. LUCK.DIR, 1
  2.  
  3. -- The startMovie handler is called automatically when the movie is started
  4.  
  5. on startMovie
  6.   
  7.   --We are going to to keep two lists that are used by other handlers
  8.   --so we store them in global variables
  9.   
  10.   global masterList, artistList
  11.   
  12.   --These statements delete any previous values held by the
  13.   --variables masteList, artistList and defaultList. This also establishes
  14.   --these variables to contain lists.
  15.   
  16.   set masterList to []
  17.   set artistList to []
  18.   set defaultList to []
  19.   
  20.   --These statements set the text size of all the 
  21.   --text fields used to 10 point and make the bid
  22.   --and name entry fields blank, erasing any previous input.
  23.   
  24.   set the textSize of field "name entry field" = 10
  25.   set the textSize of field "bid entry field" = 10
  26.   set the textSize of field "display winning bids" = 10
  27.   set the textSize of field "display winner names" = 10
  28.   put EMPTY into field "name entry field"
  29.   put EMPTY into field "bid entry field"
  30.   
  31.   --These statements add all the designers to a list
  32.   --called designerList. designerList is actually a list
  33.   --within a list; each entry for a designer contains a two-member list
  34.   --made up of the designer's name and a code for the designer.
  35.   --The designer code is also used in the frame markers.
  36.   
  37.   add artistlist, ["Andrew Belschner","Bel0"]
  38.   add artistlist, ["Richard Brayton","Bray0"]
  39.   add artistlist, ["Glenn Gee","Gee0"]
  40.   add artistlist, ["Brian Kenneth Graham","Grah0"]
  41.   add artistlist, ["Brian Kane","Kane0"]
  42.   add artistlist, ["Alan & Joy Ohashi","Oha0"]
  43.   
  44.   --This statement creates a three member list to provide default bidders.
  45.   --Again this is a list containing other lists. 
  46.   
  47.   set defaultlist to [["John Doe",300],["Joe Smith",500],["Jane Jones",450]]
  48.   
  49.   --These statements step through the artist lists to make a master list containing
  50.   --all the bids and bidders in the default list as if these bidders had
  51.   --entered bids for these designer's work
  52.   
  53.   repeat with artistnumb = 1 to count(artistlist)
  54.     --These statements extract the designer (artist) code from
  55.     --each entry in the artist list.
  56.     
  57.     set currentArtist to getAt(artistlist, artistnumb)
  58.     set currentArtistCode to getAt(currentArtist, 2)
  59.     
  60.     --These statements add to a master list entries for each of the members
  61.     --of the default list for each of the artist. Therefore we have a master list
  62.     --where John Doe, Joe Smith, and Jane Jones all bid the same amount for each of
  63.     --the designer's work.
  64.     
  65.     repeat with defaultnumb = 1 to count(defaultlist)
  66.       set currentDefault to getAt(defaultList, defaultNumb)
  67.       set currentName to getAt(currentDefault,1)
  68.       set currentBid to getAt(currentDefault,2)
  69.       add (masterlist, [currentArtistCode, currentName, currentBid])
  70.     end repeat
  71.     
  72.   end repeat
  73.   
  74.   --This statement sets the keyDownScript to the handler "tallyBid" so
  75.   -- that whenever a key is pressed the "tallyBid" handler is executed.
  76.   
  77.   set the keyDownScript = "tallyBid"
  78.   
  79.   --This statement allows sprite 22 to respond immediately when clicked
  80.   --rather than waiting for a mouseup
  81.   
  82.   set the immediate of sprite 22 = TRUE
  83.   
  84.   -- We use a special cursor that is stored as a castmember. The cast member
  85.   --is a 16 x 16 pixel, 1 bit cast member.
  86.   
  87.   set magcursor to [the number of cast "magnifying glass"]
  88.   
  89.   -- set the cursor of each hot spot sprite to this special cursor.
  90.   -- its cast number is stored in the variable magcursor
  91.   
  92.   -- menu bar
  93.   set the cursor of sprite 2 = magcursor
  94.   
  95.   --  large designer name sprite
  96.   set the cursor of sprite 3 = magcursor
  97.   --  small booth icon sprites
  98.   set the cursor of sprite 5 = magcursor
  99.   set the cursor of sprite 6 = magcursor
  100.   set the cursor of sprite 7 = magcursor
  101.   set the cursor of sprite 8 = magcursor
  102.   set the cursor of sprite 9 = magcursor
  103.   set the cursor of sprite 10 = magcursor
  104.   
  105.   -- small furniture icons
  106.   set the cursor of sprite 12 = magcursor
  107.   set the cursor of sprite 13 = magcursor
  108.   set the cursor of sprite 14 = magcursor
  109.   set the cursor of sprite 15 = magcursor
  110.   
  111.   --  large furniture icons
  112.   set the cursor of sprite 16 = magcursor
  113.   set the cursor of sprite 17 = magcursor
  114.   
  115.   -- enter bid sprite
  116.   set the cursor of sprite 22 = magcursor
  117.   
  118. end startMovie
  119.  
  120.  
  121.